Add a comment.

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index c5f1e3921fa38ef486bb8b9fa6a4e5e7114fde3b..4d9b24e0043d731d921a381362d47460b98ad1dd 100644 (file)
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -209,7 +209,9 @@ removed from alias expansions."
            (if (re-search-forward "[ \t]*[\n,][ \t]*" end1 t)
                (setq epos (match-beginning 0)
                      seplen (- (point) epos))
-             (setq epos (marker-position end1) seplen 0))
+             ;; Handle the last name in this header field.
+             ;; We already moved END1 back across whitespace after it.
+             (setq epos (marker-position end1) seplen 0))
            (let ((string (buffer-substring-no-properties pos epos))
                  translation)
              (if (and (not (assoc string disabled-aliases))